home *** CD-ROM | disk | FTP | other *** search
/ Wire Desire / Wire Desire.iso / disk1 / corpins.mst < prev    next >
Encoding:
Text File  |  1996-06-27  |  6.0 KB  |  238 lines
  1. '**************************************************************************
  2. '*                     Photo Screen Saver Installation
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST APPHELP       = 900
  18. CONST TOOBIG        = 6300
  19. CONST BADPATH       = 6400
  20.  
  21. ''Bitmap ID
  22. CONST LOGO = 1
  23.  
  24. GLOBAL DEST$        ''Default destination directory.
  25. GLOBAL WINDRIVE$    ''Windows drive letter.
  26. GLOBAL WINDIR$      ''Windows directory letter.
  27. GLOBAL NEEDED&          ''Number of bytes still needed.
  28.  
  29. '' List symbol names
  30. GLOBAL EXTRACOSTS$       ''List of extra costs to add per drive
  31. GLOBAL NEEDEDCOSTS$  ''List of costs needed per drive
  32.  
  33. DECLARE SUB MakeInstallList
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35.  
  36.  
  37. INIT:
  38.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  39.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  40.  
  41.     SetBitmap CUIDLL$, LOGO
  42.     SetTitle "Program Installation"
  43.  
  44.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  45.     IF szInf$ = "" THEN
  46.     szInf$ = GetSymbolValue("STF_CWDDIR") + "CORPINS.INF"
  47.     END IF
  48.     ReadInfFile szInf$
  49.  
  50.     DEST$ = "C:\CDEXPRES"
  51.     WINDIR$ = GetWindowsDir
  52.     WINDRIVE$ = MID$(WINDIR$, 1, 1)
  53.  
  54. '$IFDEF DEBUG
  55.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  56.     IF IsDriveValid(WINDRIVE$) = 0 THEN
  57.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  58.     GOTO QUIT
  59.     END IF
  60. '$ENDIF ''DEBUG
  61.  
  62.  
  63. WELCOME:
  64.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  65.     IF sz$ = "CONTINUE" THEN
  66.     UIPop 1
  67.     ELSE
  68.     GOSUB ASKQUIT
  69.     GOTO WELCOME
  70.     END IF
  71.  
  72.  
  73. GETPATH:
  74.     SetSymbolValue "EditTextIn", DEST$
  75.     SetSymbolValue "EditFocus", "END"
  76. GETPATHL1:
  77.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  78.     DEST$ = GetSymbolValue("EditTextOut")
  79.  
  80.     IF sz$ = "CONTINUE" THEN
  81.     IF IsDirWritable(DEST$) = 0 THEN
  82.         GOSUB BADPATH
  83.         GOTO GETPATHL1
  84.     END IF
  85.     UIPop 1
  86.     ELSEIF sz$ = "REACTIVATE" THEN
  87.     GOTO GETPATHL1
  88.     ELSEIF sz$ = "BACK" THEN
  89.     UIPop 1
  90.     GOTO WELCOME
  91.     ELSE
  92.     GOSUB ASKQUIT
  93.     GOTO GETPATH
  94.     END IF
  95.  
  96.     MakeInstallList
  97.  
  98.     IF NEEDED& > 0 THEN
  99.         GOTO TOOBIG
  100.     ELSE
  101.         CopyFilesInCopyList
  102. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  103.         CreateProgmanItem "CD Express","The Movie - CD Required", MakePath(SRCDIR$,"movie.exe"),"", cmoOverwrite
  104.         CreateProgmanItem "CD Express","Video for Windows - CD Required", MakePath(SRCDIR,"vfw11e\setup.exe"), "vfw.ico", cmoOverwrite
  105.         
  106.     ini$ = MakePath(WINDIR$, "CONTROL.INI")
  107.     CreateIniKeyValue ini$, "ScreenSaver.photo Screensaver ", "IMAGE DIR", DEST$, cmoNone
  108.     ini$ = MakePath(WINDIR$, "AD_PREFS.INI")
  109.     CreateIniKeyValue ini$, "Photo Screen Saver ", "ImageDir", DEST$, cmoNone
  110. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  111. ini$ = MakePath(WINDIR$, "WIN.INI")
  112.     CreateIniKeyValue ini$, "Multimedia Screensaver ", "Wavefile", MakePath(MID$(SRCDIR$,1,3),"mss.wav"), cmoNone
  113.  
  114.     ENDIF
  115.  
  116.  
  117. QUIT:
  118.     ON ERROR GOTO ERRQUIT
  119.  
  120.     IF ERR = 0 THEN
  121.     dlg% = EXITSUCCESS
  122.     ELSEIF ERR = STFQUIT THEN
  123.     dlg% = EXITQUIT
  124.     ELSE
  125.     dlg% = EXITFAILURE
  126.     END IF
  127. QUITL1:
  128.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  129.     IF sz$ = "REACTIVATE" THEN
  130.     GOTO QUITL1
  131.     END IF
  132.     UIPop 1
  133.  
  134.     END
  135.  
  136. ERRQUIT:
  137.     i% = DoMsgBox("Setup sources were corrupted, call Desktop Software Inc. at 203-741-8535.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  138.     END
  139.  
  140.  
  141.  
  142. BADPATH:
  143.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  144.     IF sz$ = "REACTIVATE" THEN
  145.     GOTO BADPATH
  146.     END IF
  147.     UIPop 1
  148.     RETURN
  149.  
  150.  
  151.  
  152. ASKQUIT:
  153.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  154.  
  155.     IF sz$ = "EXIT" THEN
  156.     UIPopAll
  157.     ERROR STFQUIT
  158.     ELSEIF sz$ = "REACTIVATE" THEN
  159.     GOTO ASKQUIT
  160.     ELSE
  161.     UIPop 1
  162.     END IF
  163.     RETURN
  164.  
  165.  
  166. TOOBIG:
  167.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  168.     IF sz$ = "REACTIVATE" THEN
  169.     GOTO TOOBIG
  170.     END IF
  171.     UIPop 1
  172.     RETURN
  173.  
  174.  
  175.  
  176. '**
  177. '** Purpose:
  178. '**     Builds the copy list and performs all installation operations.
  179. '** Arguments:
  180. '**     none.
  181. '** Returns:
  182. '**     none.
  183. '*************************************************************************
  184. SUB MakeInstallList STATIC
  185.  
  186.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  187.     CreateDir DEST$, cmoNone
  188.  
  189. '' Corporate Screensaver Files
  190.     AddSectionFilesToCopyList "FILES", SrcDir$, DEST$
  191.  
  192.  
  193. '' Windows 3.1 screen saver files
  194.     AddSectionFilesToCopyList "WINSAVER", SrcDir$, WINDIR$
  195.  
  196. '' Images
  197.     AddSectionFilesToCopyList "IMAGES", SrcDir$, DEST$
  198.  
  199. '' Check enough disk space.
  200.     EXTRACOSTS$ = "ExtraCosts"
  201.     NEEDEDCOSTS$ = "NeededCosts"
  202.     FOR i% = 1 TO 26 STEP 1
  203.     AddListItem EXTRACOSTS$, "0"
  204.     AddListItem NEEDEDCOSTS$, "0"
  205.     NEXT i%
  206.     ''Add extra cost to Windows drive for ini/progman, etc.
  207.     ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  208.     ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  209.  
  210.     NEEDED& = GetCopyListCost(EXTRACOSTS$,NEEDEDCOSTS$,"")
  211.  
  212. END SUB
  213.  
  214.  
  215.  
  216. '**
  217. '** Purpose:
  218. '**     Appends a file name to the end of a directory path,
  219. '**     inserting a backslash character as needed.
  220. '** Arguments:
  221. '**     szDir$  - full directory path (with optional ending "\")
  222. '**     szFile$ - filename to append to directory
  223. '** Returns:
  224. '**     Resulting fully qualified path name.
  225. '*************************************************************************
  226. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  227.     IF szDir$ = "" THEN
  228.     MakePath = szFile$
  229.     ELSEIF szFile$ = "" THEN
  230.     MakePath = szDir$
  231.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  232.     MakePath = szDir$ + szFile$
  233.     ELSE
  234.     MakePath = szDir$ + "\" + szFile$
  235.     END IF
  236. END FUNCTION
  237.  
  238.